﻿Namespace JPC.Medialibrary.UI

    Public Class StatisticsMenu
        Inherits List(Of ListItem)

        Sub New()
            Dim i As ListItem

            i = New ListItem
            i.CommandName = "GetFavoritesSongsNotListenedLately"
            i.Text = "Canciones favoritas no escuchadas recientemente"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetMostPlayedSongs"
            i.Text = "Canciones más escuchadas"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetRecentlyPlayedSongs"
            i.Text = "Canciones escuchadas recientemente"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetRecentlyAddedSongs"
            i.Text = "Canciones agregadas recientemente"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetFavoritesArtistsNotListenedLately"
            i.Text = "Artistas favoritos no escuchados recientemente"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetMostPlayedArtists"
            i.Text = "Artistas más escuchados"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetRecentlyPlayedArtistas"
            i.Text = "Artistas escuchados recientemente"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetRecentlyAddedArtists"
            i.Text = "Artistas agregados recientemente"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetFavoritesAlbumsNotListenedLately"
            i.Text = "Discos favoritos no escuchados recientemente"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetMostPlayedAlbums"
            i.Text = "Discos más escuchados"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetRecentlyPlayedAlbums"
            i.Text = "Discos escuchados recientemente"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetRecentlyAddedAlbums"
            i.Text = "Discos agregados recientemente"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetFavoritesPlaylistsNotListenedLately"
            i.Text = "Listas favoritas no escuchadas recientemente"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetMostPlayedPlaylists"
            i.Text = "Listas más escuchadas"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetRecentlyPlayedPlaylists"
            i.Text = "Listas escuchadas recientemente"
            Me.Add(i)

            i = New ListItem
            i.CommandName = "GetRecentlyAddedPlaylists"
            i.Text = "Listas agregadas recientemente"
            Me.Add(i)


        End Sub

    End Class

End Namespace
